home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1988 October / Ahoy_Magazine_88-10_1988_Double_L.d64 / CBM Modulo (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  177 b   |  6 lines
  1. 10 rem  this operation produces the
  2. 20 rem integer remainder of an integer
  3. 30 rem division.
  4. 40 print:input"a mod b (enter a,b)";a,b:b=abs(b):c=int(a/b):d=c*b:e=a-d
  5. 50 print:printa;"mod";b;"=";e
  6.